home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / demo3.bas < prev    next >
BASIC Source File  |  1999-06-15  |  4KB  |  128 lines
  1. /*==== -: "OBJ_18_.SP" ｶﾝｲ ﾃﾞﾓ ﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,pl
  3. int anm_flg,anm_flg2
  4. char kyc
  5. /* ﾉｳ ﾓﾄﾞｷ
  6. dim int tbl0(7,3)={&H0180,&H0181,&H0190,&H0191,
  7.            &H0182,&H0183,&H0192,&H0193,
  8.            &H0184,&H0185,&H0194,&H0195,
  9.            &H0186,&H0187,&H0196,&H0197,
  10.            &H0188,&H0189,&H0198,&H0199,
  11.            &H0186,&H0187,&H0196,&H0197,
  12.            &H0184,&H0185,&H0194,&H0195,
  13.            &H0182,&H0183,&H0192,&H0193}
  14.  
  15. dim int tbl1(7,3)={&H0180,&H0181,&H0190,&H0191,
  16.            &H0188,&H0189,&H0198,&H0199,
  17.            &H0186,&H0187,&H0196,&H0197,
  18.            &H0184,&H0185,&H0194,&H0195,
  19.            &H0182,&H0183,&H0192,&H0193,
  20.            &H0180,&H0181,&H0190,&H0191,
  21.            &H0180,&H0181,&H0190,&H0191,
  22.            &H0180,&H0181,&H0190,&H0191}
  23.  
  24. /* ﾉｳ ﾓﾄﾞｷ 2
  25. dim int tbl2(7,3)={&H01CC,&H01CD,&H01DC,&H01DD,
  26.            &H01CE,&H01CF,&H01DE,&H01DF,
  27.            &H01EA,&H01EB,&H01FA,&H01FB,
  28.            &H01EC,&H01ED,&H01FC,&H01FD,
  29.            &H01EE,&H01EF,&H01FE,&H01FF,
  30.            &H01EC,&H01ED,&H01FC,&H01FD,
  31.            &H01EA,&H01EB,&H01FA,&H01FB,
  32.            &H01CE,&H01CF,&H01DE,&H01DF}
  33.  
  34. dim int tbl3(7,3)={&H01CC,&H01CD,&H01DC,&H01DD,
  35.            &H01EE,&H01EF,&H01FE,&H01FF,
  36.            &H01EC,&H01ED,&H01FC,&H01FD,
  37.            &H01EA,&H01EB,&H01FA,&H01FB,
  38.            &H01CE,&H01CF,&H01DE,&H01DF,
  39.            &H01CC,&H01CD,&H01DC,&H01DD,
  40.            &H01CC,&H01CD,&H01DC,&H01DD,
  41.            &H01CC,&H01CD,&H01DC,&H01DD}
  42.  
  43. /* ｼｬﾎﾞﾝﾀﾞﾏ
  44. dim int tbl4(3,3)={&H03C0,&H03C1,&H03D0,&H03D1,
  45.            &H03C2,&H03C3,&H03D2,&H03D3,
  46.            &H03C4,&H03C5,&H03D4,&H03D5,
  47.            &H03C6,&H03C7,&H03D6,&H03D7}
  48.  
  49. /*==== -: screen init. :- ====
  50. screen 0,3,1,1 : window(  0,  0,511,511)
  51. vpage(&B01) : apage(&B00)
  52. sp_init() : sp_disp(1)
  53.  
  54. spfile_def("OBJ_18_.SP",0)
  55. palfile_def("OBJ_18_.PAL",1)
  56.  
  57. for i=0 to 7
  58. for j=0 to 15
  59.     pl=sp_color(j,,1+i)
  60.     fill(j*8,i*4, j*8+6,i*4+2,pl)
  61. next
  62. next
  63. for i=0 to 2
  64.     sp_set(i*4+78, 24+i*40,200,&H3E0+i*256,3)
  65.     sp_set(i*4+79, 40+i*40,200,&H3E1+i*256,3)
  66.     sp_set(i*4+80, 24+i*40,216,&H3F0+i*256,3)
  67.     sp_set(i*4+81, 40+i*40,216,&H3F1+i*256,3)
  68.  
  69.     sp_set(i*4+90,144+i*40,200,&H6E2+i*256,3)
  70.     sp_set(i*4+91,160+i*40,200,&H6E3+i*256,3)
  71.     sp_set(i*4+92,144+i*40,216,&H6F2+i*256,3)
  72.     sp_set(i*4+93,160+i*40,216,&H6F3+i*256,3)
  73.  
  74.     sp_set(i*4+102, 24+i*40,240,&H3E4+i*256,3)
  75.     sp_set(i*4+103, 40+i*40,240,&H3E5+i*256,3)
  76.     sp_set(i*4+104, 24+i*40,256,&H3F4+i*256,3)
  77.     sp_set(i*4+105, 40+i*40,256,&H3F5+i*256,3)
  78.  
  79.     sp_set(i*2+122,152+i*40,240,&H6E6+i*256,3)
  80.     sp_set(i*2+123,152+i*40,256,&H6F6+i*256,3)
  81. next
  82.  
  83. /*==== -: main demo :- ====
  84.  
  85. while inkey$(0)<>chr$(&H1B)
  86.     anm_flg=anm_flg+1 and 7
  87.     anm_flg2=anm_flg2+1 and 7
  88.  
  89.     v_disp()
  90.     for i=0 to 2
  91.         sp_set(i*4  , 24+i*40, 56,tbl0(anm_flg,0)+i*256,3)
  92.         sp_set(i*4+1, 40+i*40, 56,tbl0(anm_flg,1)+i*256,3)
  93.         sp_set(i*4+2, 24+i*40, 72,tbl0(anm_flg,2)+i*256,3)
  94.         sp_set(i*4+3, 40+i*40, 72,tbl0(anm_flg,3)+i*256,3)
  95.     next
  96.     for i=0 to 2
  97.         sp_set(i*4+12,144+i*40, 56,tbl1(anm_flg,0)+i*256,3)
  98.         sp_set(i*4+13,160+i*40, 56,tbl1(anm_flg,1)+i*256,3)
  99.         sp_set(i*4+14,144+i*40, 72,tbl1(anm_flg,2)+i*256,3)
  100.         sp_set(i*4+15,160+i*40, 72,tbl1(anm_flg,3)+i*256,3)
  101.     next
  102.  
  103.     for i=0 to 2
  104.         sp_set(i*4+24, 24+i*40, 96,tbl2(anm_flg,0)+i*256,3)
  105.         sp_set(i*4+25, 40+i*40, 96,tbl2(anm_flg,1)+i*256,3)
  106.         sp_set(i*4+26, 24+i*40,112,tbl2(anm_flg,2)+i*256,3)
  107.         sp_set(i*4+27, 40+i*40,112,tbl2(anm_flg,3)+i*256,3)
  108.     next
  109.     v_disp()
  110.     for i=0 to 2
  111.         sp_set(i*4+36,144+i*40, 96,tbl3(anm_flg,0)+i*256,3)
  112.         sp_set(i*4+37,160+i*40, 96,tbl3(anm_flg,1)+i*256,3)
  113.         sp_set(i*4+38,144+i*40,112,tbl3(anm_flg,2)+i*256,3)
  114.         sp_set(i*4+39,160+i*40,112,tbl3(anm_flg,3)+i*256,3)
  115.     next
  116.  
  117.     for i=0 to 5
  118.         sp_set(i*4+48, 24+i*40,136,tbl4(anm_flg2 shr 1,0)+i*256,3)
  119.         sp_set(i*4+49, 40+i*40,136,tbl4(anm_flg2 shr 1,1)+i*256,3)
  120.         sp_set(i*4+50, 24+i*40,152,tbl4(anm_flg2 shr 1,2)+i*256,3)
  121.         sp_set(i*4+51, 40+i*40,152,tbl4(anm_flg2 shr 1,3)+i*256,3)
  122.     next
  123.  
  124.     for i=0 to 5
  125.         sp_set(i+72, 32+i*40,176,&H3C8+(anm_flg2 shr 1)+i*256,3)
  126.     next
  127. endwhile
  128.